g l o b a l 
 
         A "Z 
 
 e n d g l o b a l 
 
 
 
 f u n c   m a i n ( )   = 
 
         a u t o 
 
                 t "Z 
 
         e n d a u t o 
 
 
 
         A !f ( 1 2 3 ,   1 0 0 ) 
 
         t !Z 2 S t r ( A ) 
 
         d o   D e b u g ( t ) 
 
 
 
 | a a a 
 
         d o   D o E v e n t s ( ) 
 
         g o t o   | a a a 
 
 e n d f u n c 
 
 
 
 / / / / / / / / 
 
 
 
 f u n c   f ( x "Z ,   y "Z )   "  Z = 
 
         a u t o 
 
                 t "Z 
 
         e n d a u t o 
 
         t !g ( x , y ) 
 
         r e t   t 
 
 e n d f u n c 
 
 
 
 / / / / / / / / 
 
 
 
 f u n c   g ( x "Z ,   y "Z )   "  Z = 
 
         a u t o 
 
                 t "Z 
 
         e n d a u t o 
 
         t !x * y 
 
         r e t   t 
 
 e n d f u n c 